﻿Public Class frmTimKiem


    Private Sub btnTimKiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimKiem.Click
        Dim namxb As String = ""
        If txtNamXB.Text <> "" Then namxb = Val(txtNamXB) 'neu ko nhap thi no ko cho so 0 vao
        DatTimKiem.DataSource = clsTimKiem.TimKiemS(txtTenSach.Text, txtNXB.Text, namxb, txtTheLoai.Text, txtTacGia.Text)

    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub frmTimKiem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '    DatTimKiem.DataSource = clsTimKiem.DSTimKiem()

    'End Sub
End Class